From 229b5d94f68e68fee3ec345277d3e08905752ef3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 3 Jul 2007 02:54:42 +0000 Subject: [PATCH] (command-line): Set buffer-offer-save in *scratch* and enable auto-save in it. --- lisp/startup.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/startup.el b/lisp/startup.el index 1943367dfc8..4e43b39bfd4 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1055,7 +1055,10 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." (if (get-buffer "*scratch*") (with-current-buffer "*scratch*" (if (eq major-mode 'fundamental-mode) - (funcall initial-major-mode)))) + (funcall initial-major-mode)) + ;; Don't lose text that users type in *scratch*. + (setq buffer-offer-save t) + (auto-save-mode 1))) ;; Load library for our terminal type. ;; User init file can set term-file-prefix to nil to prevent this. -- 2.30.2